home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64 / spg_demo timer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  49 lines
  1. 10 ifpeek(49234)<>asc("s")thenload" sprite*",8,1
  2. 20 sys49152
  3. 100 poke650,128:print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  4. 110 print" *** sprite-graphics - timer-setup *** "
  5. 120 poke53280,6:poke53281,6:!tc0,4,8,8,15
  6. 130 !gr1;gx144;gy74;gc8;ge;gi
  7. 132 !tf15,3,24,22,160;tc15,3,24,22,2:gosub50000
  8. 140 py=0:yt=0
  9. 150 fori=0to7:dl(i)=peek(50911+i):!tp0,4+i,i":"dl(i):next
  10. 160 print"[155]select no.":print"[154]  crsr up/down"
  11. 165 print"[155]change value":print"[154]  + / -"
  12. 170 print"[155]move graphic":print"[154]  f7/f8"
  13. 175 print"[155]exit program":print"[154]  x"
  14. 200 !tn0,4,8,8;tx0,4,8,8,96,32;tr0,4+py,8,1;gy 74+yt
  15. 210 wait198,63:geti$:i=1
  16. 220 ifi$<>mid$("[145]+-[136][140]x",i,1)theni=i+1:ifi<8then220
  17. 230 ifi=8then210
  18. 240 onigoto250,260,800,900,300,350,400
  19. 250 py=py+1:ifpy>7thenpy=7
  20. 255 goto200
  21. 260 py=py-1:ifpy<0thenpy=0
  22. 265 goto200
  23. 300 yt=yt+1:ifyt>7thenyt=0
  24. 310 goto200
  25. 350 yt=yt-1:ifyt<0thenyt=7
  26. 360 goto200
  27. 400 !gr0:print"[147]new"
  28. 410 print"1000 for i=0[160]to 6:read[160]w:poke 50911+i,w:poke 50912+i,w:next"
  29. 420 print"1010 read w:poke 50918,w"
  30. 430 print"1020 data";:fori=0to6:printdl(i)"[157],";:next:printdl(7)
  31. 440 print"diese zeilen muessen sie in ihr programm";
  32. 450 print"einbinden, um die neuen delay-zeiten zu"
  33. 460 print"initialisieren.";:end
  34. 800 dl(py)=dl(py)+1:ifdl(py)>31thendl(py)=31
  35. 810 !tp0,4+py,"[155]"py":"dl(py)
  36. 820 poke50911+py,dl(py):ifpy<7thenpoke50919+py,dl(py):goto200
  37. 900 dl(py)=dl(py)-1:ifdl(py)<10thendl(py)=10
  38. 910 goto810
  39. 50000 rem testbild erzeugen
  40. 50010 !ds 130,68,40,16,40,68,130,1
  41. 50020 !dm 0
  42. 50030 fori=0to3:!db24*i,0,7,168:next
  43. 50035 !ds 255,0,255,0,255,0,255,0
  44. 50040 fori=0to3:!db8+24*i,0,7,168:next
  45. 50050 !ds 17,17,34,34,68,68,136,136
  46. 50060 !dm 3
  47. 50070 fori=0to3:!db16+24*i,0,7,168:next
  48. 50080 return
  49.